<!-- #INCLUDE Virtual="/lib.asp" -->
<!-- #INCLUDE Virtual="/lib_gen.asp" -->

<%
dim rss, objXMLDom, objXMLdata
dim rssTitle, rssInhoud

rss = getExternalHTML("http://alert.amberalertnederland.nl/nl/index.rss")

Set objXMLDom = Server.CreateObject("Microsoft.XMLDOM")
objXMLDom.preserveWhiteSpace = true
objXMLDom.async = false
objXMLDom.resolveExternals = false

objXMLDom.loadXML(rss)
Set objXMLdata = objXMLDom.documentElement

for each item in objXMLdata.selectNodes("//item")
	rssTitle = item.selectSingleNode("title").text
next

if rssTitle <> "" then
	rssInhoud = "<img src='http://amberalertnederland.nl/imagealert/Default.aspx?type=horizontal&lang=nl' width='100%'/>"
	call generatePageEx(request("preview"), request.querystring("nextpage"), "", "", "", rssInhoud, "", 30)
else
	call generatePageEx(request("preview"), request.querystring("nextpage"), "", "", "", "", "", 0)
end if
%>